home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PKEY11_1.ARJ / FW.LSP < prev    next >
Text File  |  1992-03-14  |  524b  |  16 lines

  1. ;Fill Wall
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (DEFUN C:fw()
  7. (setq oer *error* *error* err2)
  8. (if (= fa1 nil)(setq fa1 4.5))
  9. (setq dfop1 fa1)
  10. (initget (+ 2 4))
  11. (setq fa1(getdist(strcat "Enter wall size <" (rtos fa1) ">: ")))
  12. (if (= fa1 nil)(setq fa1 dfop1))
  13. (setq fa2(/ fa1 2))
  14. (princ "\nSelect wall line to fill")
  15. (command"offset" fa2 pause PAUSE "" "chprop" "l" "" "la" "ewf" "" "pedit" "l" "Y" "w" fa1 "")
  16. (princ))